home *** CD-ROM | disk | FTP | other *** search
/ Material Dictionary 112:…okohama - Business Cities / Material Dictionary 112: Tokyo & Yokohama - Business Cities.iso / mac / SOZAI112 / SOZAI.EXE / SOZAI.dxr / 00004_Å•.ls < prev    next >
Encoding:
Text File  |  1999-12-15  |  848 b   |  37 lines
  1. on mouseDown
  2.   global scrollTop, scrollmax
  3.   set cn to the castNum of sprite the clickOn
  4.   set the castNum of sprite the clickOn to cn + 1
  5.   updateStage()
  6.   scrollup()
  7.   if not (the controlDown) then
  8.     repeat while the stillDown
  9.       if rollOver(the clickOn) then
  10.         scrollup()
  11.       end if
  12.     end repeat
  13.   else
  14.     repeat while the stillDown
  15.       nothing()
  16.     end repeat
  17.     repeat while not (the mouseDown)
  18.       if scrollTop = scrollmax then
  19.         repeat with i = 0 to scrollmax
  20.           set scrollTop to scrollmax - i
  21.           if (i mod 4) = 0 then
  22.             updatethumb()
  23.           end if
  24.         end repeat
  25.         updatethumb()
  26.         deselect()
  27.         updatepict()
  28.         next repeat
  29.       end if
  30.       scrollup()
  31.     end repeat
  32.   end if
  33.   set the castNum of sprite the clickOn to cn
  34.   updateStage()
  35.   indicateoff()
  36. end
  37.